#! /usr/local/bin/gforth-fast
require string.fs
require http1.1.4th
require html4.0.4th
\ simple code 

\ s" hello this is useless" 

head.http
html.
head.
    s" text/html;charset=utf-8" meta.http-equiv
    title. ." Forth CGI 项目首页" .title
.head

body.
h1. ." Forth-CGI项目主页" .h1 hr

s" HTML4.0测试页面" s" test-html4.4th" a.go br
s" CGI测试页面" s" test-cgi.4th" a.go
hr h5. s" GForth" s" http://www.gnu.org/software/gforth/gforth.html" a.blank
version-string type .h5
.body
.html

bye
